home *** CD-ROM | disk | FTP | other *** search
/ Network PC / Network PC.iso / amiga utilities / applications / accounts / easycalc2.0f / easyrexx / verticaldays.erex < prev    next >
Encoding:
Text File  |  1997-11-20  |  315 b   |  20 lines
  1. /* EasyCalc 2.0 Arexx Script */
  2.  
  3. options results
  4.  
  5. getcurx
  6. curx = result
  7.  
  8. getcury
  9. cury = result
  10.  
  11. setcell curx cury   'Monday'
  12. setcell curx cury+1 'Tuesday'
  13. setcell curx cury+2 'Wednesday'
  14. setcell curx cury+3 'Thursday'
  15. setcell curx cury+4 'Friday'
  16. setcell curx cury+5 'Saturday'
  17. setcell curx cury+6 'Sunday'
  18.  
  19. redraw
  20.